perm filename DUET.FUN[SCR,LCS] blob sn#469475 filedate 1979-08-23 generic text, type T, neo UTF8
ARRAY F1 ,F2 ,F3 ,F4 ,F5 ,F6 ,F7 ,F8 ,F9     
(512);
 PRINT "F1 -";
SEG  (F1   );     
    0.0000    1.0000
    1.0000   25.0000
    1.0000   75.0000
    0.0000  100.0000
 PRINT "F2 -";
SEG  (F2   );     
    0.0000    1.0000
    1.0000   15.0000
    0.7500   25.0000
    0.6500   75.0000
    0.0000  100.0000
 PRINT "F3 -";
SEG  (F3   );     
    0.0000    1.0000
    1.0000    5.0000
    1.0000    8.0000
    0.4000   22.0000
    0.2000   40.0000
    0.0500   75.0000
    0.0000  100.0000
 PRINT "F4 -";
SEG  (F4   );     
    0.0000    1.0000
    1.0000   99.0000
    0.0000  100.0000
 PRINT "F5 -";
SEG  (F5   );     
    1.0000    1.0000
    0.7500   25.0000
    0.2500   75.0000
    0.0000  100.0000
 PRINT "F6 -";
SYNTH(F6   );   99
    1.0000    1.0000    0.0000    0.0000
    3.0000    0.3330    0.0000    0.0000
    5.0000    0.2000    0.0000    0.0000
    7.0000    0.1430    0.0000    0.0000
    9.0000    0.1110    0.0000    0.0000
  999.0000
 PRINT "F7 -";
SYNTH(F7   );   99
    1.0000    1.0000    0.0000    0.0000
    2.3100    0.4000    0.0000    0.0000
    4.1700    0.4000    0.0000    0.0000
    1.0000    1.0000    0.0000    0.0000
    2.0000    1.0000    0.0000    0.0000
    4.0000    1.0000    0.0000    0.0000
    6.0000    0.5000    0.0000    0.0000
    2.0000    1.0000    0.0000    0.0000
  999.0000
 PRINT "F8 -";
SYNTH(F8   );   99
    1.0000    1.0000    0.0000    0.0000
    2.0000    0.3000    0.0000    0.0000
    4.0000    0.3000    0.0000    0.0000
    5.0000    0.1000    0.0000    0.0000
  999.0000
 PRINT "F9 -";
SEG  (F9   );     
   -1.0000    1.0000
    0.5000   15.0000
    0.0000   25.0000
    0.0000   75.0000
   -0.5000  100.0000